From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 11 Mar 1993 07:48:36 +0000 (+0000)
Subject: (x_frame_parms): Add elts for visibility and menu-bar-lines.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96929
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=fa8fdbf9a0dbfcdfdc3ec4589cc26347c0064c26;p=emacs.git

(x_frame_parms): Add elts for visibility and menu-bar-lines.
(enum x_frame_parm): Likewise.
(x_set_menu_bar_lines, x_set_menu_bar_lines_1): New functions.
(x_set_visibility): New function.
(Fx_create_frame): Handle menu-bar-lines parm.
(Fframe_parameters): Report menu-bar-lines parm.
(syms_of_frame): Set up Qmenu_bar_lines.
---

diff --git a/src/frame.c b/src/frame.c
index 7d70b88dc1c..e75278bb7df 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -82,6 +82,7 @@ Lisp_Object Qmodeline;
 Lisp_Object Qname;
 Lisp_Object Qonly;
 Lisp_Object Qunsplittable;
+Lisp_Object Qmenu_bar_lines;
 Lisp_Object Qwidth;
 Lisp_Object Qx;
 
@@ -1065,6 +1066,7 @@ If FRAME is omitted, return information on the currently selected frame.")
 		   : (FRAME_MINIBUF_ONLY_P (f) ? Qonly
                    : FRAME_MINIBUF_WINDOW (f))));
   store_in_alist (&alist, Qunsplittable, (f->no_split ? Qt : Qnil));
+  store_in_alist (&alist, Qmenu_bar_lines, (FRAME_MENU_BAR_LINES (f)));
 
   /* I think this should be done with a hook.  */
 #ifdef HAVE_X_WINDOWS
@@ -1421,6 +1423,8 @@ syms_of_frame ()
   staticpro (&Qwidth);
   Qx = intern ("x");
   staticpro (&Qx);
+  Qmenu_bar_lines = intern ("menu-bar-lines");
+  staticpro (&Qmenu_bar_lines);
 
   staticpro (&Vframe_list);